Chip 1999 March/CHIP Turkiye Mart 1999.iso/101/data/file chopper 20/fchop.exe/TheFileChopper.exe/0/RCDATA/TMAIN/TMAIN.txt

Text File | 1998-10-28 | 20KB | 646 lines

object Main: TMain
  Left = 237
  Top = 121
  AutoScroll = False
  Caption = 'FileChopper'
  ClientHeight = 369
  ClientWidth = 529
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnClose = OnClose
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 529
    Height = 0
    Align = alTop
  end
  object Bevel2: TBevel
    Left = 0
    Top = 39
    Width = 529
    Height = 0
    Align = alTop
  end
  object SpeedBar: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 39
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object SplitAFileBtn: TSpeedButton
      Left = 6
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Hint =
        'Select a file to be splitted|Select a file that will be splitted' +
        ' into several smaller files'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SplitAFileBtnClick
    end
    object ExitBtn: TSpeedButton
      Left = 285
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Hint = 'Exit|Exit from the program'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ExitBtnClick
    end
    object JoinFilesBtn: TSpeedButton
      Left = 161
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Hint =
        'Select files to be joined|Select files that will be joined toget' +
        'her into one big file'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
        3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
        B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
        33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
        000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
        033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
        BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
        33B33733333773333373B333333B3333333B7333333733333337}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = JoinFilesBtnClick
    end
    object DoSplitBtn: TSpeedButton
      Left = 68
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Hint = 'Split the file|Split the selected file into smaller files'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
        70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
        70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
        70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DoSplitBtnClick
    end
    object DoJoinBtn: TSpeedButton
      Left = 223
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Hint = 'Join the files|Join the selected files into one big file'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
        70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
        70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
        70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DoJoinBtnClick
    end
    object FindPlaceToSmallFilesBtn: TSpeedButton
      Left = 37
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
        333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
        300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
        333337F373F773333333303330033333333337F3377333333333303333333333
        333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
        333337777F337F33333330330BB00333333337F373F773333333303330033333
        333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
        333377777F77377733330BBB0333333333337F337F33333333330BB003333333
        333373F773333333333330033333333333333773333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FindPlaceToSmallFilesBtnClick
    end
    object FindPlaceToBigFileBtn: TSpeedButton
      Left = 192
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
        333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
        300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
        333337F373F773333333303330033333333337F3377333333333303333333333
        333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
        333337777F337F33333330330BB00333333337F373F773333333303330033333
        333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
        333377777F77377733330BBB0333333333337F337F33333333330BB003333333
        333373F773333333333330033333333333333773333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FindPlaceToBigFileBtnClick
    end
    object HintBtn: TSpeedButton
      Left = 373
      Top = 5
      Width = 149
      Height = 30
      Cursor = crHandPoint
      Caption = 'How It Works'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = HintBtnClick
    end
    object SelfUnitBtn: TSpeedButton
      Left = 99
      Top = 5
      Width = 30
      Height = 30
      Cursor = crHandPoint
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SelfUnitBtnClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 347
    Width = 529
    Height = 22
    Panels = <
      item
        Width = 345
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object BigFileGB: TGroupBox
    Left = 6
    Top = 49
    Width = 517
    Height = 80
    Caption = 'Big File'
    TabOrder = 2
    object BigFileSize: TLabel
      Left = 69
      Top = 49
      Width = 3
      Height = 16
    end
    object lblBigFileName: TLabel
      Left = 10
      Top = 20
      Width = 55
      Height = 19
      AutoSize = False
      Caption = 'Name'
    end
    object BigFileName: TLabel
      Left = 69
      Top = 20
      Width = 3
      Height = 16
    end
    object lblBigFileSize: TLabel
      Left = 10
      Top = 49
      Width = 55
      Height = 20
      AutoSize = False
      Caption = 'Size'
    end
    object BigFileRB1: TRadioButton
      Left = 286
      Top = 47
      Width = 30
      Height = 21
      Caption = 'B'
      TabOrder = 0
      OnClick = BigFileRB1Click
    end
    object BigFileRB2: TRadioButton
      Left = 341
      Top = 47
      Width = 41
      Height = 21
      Caption = 'kB'
      TabOrder = 1
      OnClick = BigFileRB2Click
    end
    object BigFileRB3: TRadioButton
      Left = 398
      Top = 47
      Width = 41
      Height = 21
      Caption = 'MB'
      TabOrder = 2
      OnClick = BigFileRB3Click
    end
    object BigFileRB4: TRadioButton
      Left = 453
      Top = 47
      Width = 41
      Height = 21
      Caption = 'GB'
      TabOrder = 3
      OnClick = BigFileRB4Click
    end
  end
  object ActualSizeGB: TGroupBox
    Left = 6
    Top = 138
    Width = 517
    Height = 178
    Caption = 'Small files'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 3
    object lblNrFiles: TLabel
      Left = 156
      Top = 49
      Width = 29
      Height = 16
      Alignment = taRightJustify
      Caption = 'Files'
    end
    object SmallerSize: TLabel
      Left = 197
      Top = 49
      Width = 149
      Height = 20
      AutoSize = False
      Caption = 'Sizes (B)'
    end
    object BaseSizeHeadline: TLabel
      Left = 10
      Top = 49
      Width = 59
      Height = 16
      Caption = 'Base size'
    end
    object lblSmallFileNames: TLabel
      Left = 10
      Top = 20
      Width = 63
      Height = 19
      AutoSize = False
      Caption = 'Name'
    end
    object SmallFileNames: TLabel
      Left = 69
      Top = 20
      Width = 30
      Height = 16
      Caption = '          '
    end
    object lblNewSize: TLabel
      Left = 354
      Top = 49
      Width = 149
      Height = 20
      AutoSize = False
      Caption = 'New Size'
    end
    object ChangeItem: TLabel
      Left = 354
      Top = 98
      Width = 149
      Height = 20
      AutoSize = False
      Caption = 'File number'
      Enabled = False
    end
    object SmallerSizesLB: TListBox
      Left = 197
      Top = 69
      Width = 149
      Height = 101
      Cursor = crHandPoint
      Enabled = False
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = SmallerSizesLBClick
    end
    object ApplyBaseSize: TButton
      Left = 10
      Top = 139
      Width = 178
      Height = 31
      Cursor = crHandPoint
      Hint =
        'Updates '#39'Sizes (B)'#39'|Calculate number of small files required and' +
        ' their sizes'
      Caption = 'Apply Base Size'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = ApplyBaseSizeClick
    end
    object CBBaseSize: TComboBox
      Left = 10
      Top = 69
      Width = 178
      Height = 24
      Cursor = crHandPoint
      Style = csDropDownList
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = CBBaseSizeChange
    end
    object txtNewSize: TEdit
      Left = 354
      Top = 69
      Width = 149
      Height = 24
      Cursor = crHandPoint
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = txtNewSizeChange
    end
    object ApplyNewSize: TButton
      Left = 354
      Top = 139
      Width = 149
      Height = 31
      Cursor = crHandPoint
      Caption = 'Apply New Size'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = ApplyNewSizeClick
    end
    object rbSizeFree: TRadioButton
      Left = 10
      Top = 117
      Width = 175
      Height = 17
      Caption = 'rbSizeFree'
      TabOrder = 5
      OnClick = rbSizeFreeClick
    end
    object rbSizeBase: TRadioButton
      Left = 10
      Top = 98
      Width = 175
      Height = 17
      Caption = 'rbSizeBase'
      TabOrder = 6
      OnClick = rbSizeBaseClick
    end
  end
  object PBar: TProgressBar
    Left = 6
    Top = 325
    Width = 517
    Height = 15
    Min = 0
    Max = 100
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object MainMenu1: TMainMenu
    Left = 232
    Top = 128
    object File1: TMenuItem
      Caption = '&File'
      object ChooseSplitAFile: TMenuItem
        Caption = 'Choose &A File To Split'
        ShortCut = 16449
        OnClick = ChooseSplitAFileClick
      end
      object FindPlaceToSmallFiles: TMenuItem
        Caption = 'Find A Place for the small files'
        ShortCut = 16450
        OnClick = FindPlaceToSmallFilesClick
      end
      object DoSplit: TMenuItem
        Caption = '&Split The File'
        ShortCut = 16467
        OnClick = DoSplitClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object CreateUnchopperFile: TMenuItem
        Caption = 'UnChop'
        ShortCut = 16466
        OnClick = CreateUnchopperFileClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object JoinFiles: TMenuItem
        Caption = 'Choose &Files To Join'
        ShortCut = 16452
        OnClick = JoinFilesClick
      end
      object FindPlaceToBigFile: TMenuItem
        Caption = 'Find A Place To The Big File'
        ShortCut = 16453
        OnClick = FindPlaceToBigFileClick
      end
      object DoJoin: TMenuItem
        Caption = '&Join The Files'
        ShortCut = 16458
        OnClick = DoJoinClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object ClearRegistry: TMenuItem
        Caption = 'Reset default values'
        OnClick = ClearRegistryClick
      end
      object Exit: TMenuItem
        Caption = '&Exit'
        ShortCut = 16465
        OnClick = ExitClick
      end
    end
    object ChangeOfDisk: TMenuItem
      Caption = 'Pause'
      object ChangeAlways: TMenuItem
        Caption = 'ChangeAlways'
        OnClick = ChangeAlwaysClick
      end
      object ChangeSometimes: TMenuItem
        Caption = 'ChangeSometimes'
        OnClick = ChangeSometimesClick
      end
      object ChangeNever: TMenuItem
        Caption = 'ChangeNever'
        OnClick = ChangeNeverClick
      end
    end
    object Memory1: TMenuItem
      Caption = '&Memory'
      object MemoryUsage: TMenuItem
        Caption = 'Mem Usage...'
        OnClick = MemoryUsageClick
      end
    end
    object Filetype: TMenuItem
      Caption = 'Filetype'
      object ChooseFiletype: TMenuItem
        Caption = 'ChooseFiletype'
        OnClick = ChooseFiletypeClick
      end
    end
    object Language1: TMenuItem
      Caption = '&Language'
      object LanguageEnglish: TMenuItem
        Caption = '&English'
        OnClick = LanguageEnglishClick
      end
      object LanguageSwedish: TMenuItem
        Caption = '&Swedish'
        OnClick = LanguageSwedishClick
      end
      object LanguageGerman: TMenuItem
        Caption = 'German'
        OnClick = LanguageGermanClick
      end
    end
    object Remove1: TMenuItem
      Caption = 'Remove'
      object RemoveBig: TMenuItem
        Caption = 'Big'
        OnClick = RemoveBigClick
      end
      object RemoveSmall: TMenuItem
        Caption = 'Small'
        OnClick = RemoveSmallClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About: TMenuItem
        Caption = 'About'
        OnClick = AboutClick
      end
      object Hint: TMenuItem
        Caption = 'Hint'
        OnClick = HintClick
      end
    end
  end
end